home *** CD-ROM | disk | FTP | other *** search
/ SysOp's Arsenal / SysOp's Arsenal 1 (Arsenal Computer).ISO / telecom / sfnet.scr < prev    next >
Encoding:
Text File  |  1994-09-03  |  5.9 KB  |  219 lines
  1. ; =========================[ SFNET Qmodem Script ]===================
  2. ;                            -------------------
  3. Graphics ANSI
  4. TurnON   8_BIT                       ; These Are Our Terminal Settings
  5. TurnOFF  LINEFEED                    ; For This Session.
  6. TurnOFF  XON/XOFF                    ; You may change these.
  7. TurnOFF  NOISE
  8. TurnOFF  MUSIC
  9. TurnON   SCROLL
  10. TurnOFF  PRINT
  11. TurnOFF  SPLIT
  12. TurnON   STATUSLN
  13. TurnOFF  DOORWAY
  14. TurnOFF  ECHO
  15. TurnON   BS_DEL
  16. ;
  17. ; =========================[ Definitions ]===========================
  18. ;
  19. ; Do Not Change Any Of These Parameters!
  20. ;
  21. STRING HUB NODE
  22. STRING DOB PATH URNAME
  23. STRING CAP
  24. ;
  25. ; ================[ Assign Strings To Definitions ]==================
  26. ;
  27. ; You MUST CHANGE THESE to suit your needs!
  28. ;
  29. ASSIGN NODE "A051900x"       ; This is your BBS-ID Number.
  30. ASSIGN HUB  "A051900x"       ; This is your HUB BBS-ID Number (PACKET NAMES)
  31. ASSIGN CAP  "SFNET.CAP"      ; Name of Qmodem Capture file.
  32. ASSIGN PATH "C:\SF\SHILOH"   ; Location For Files.
  33. ASSIGN URNAME "Paul_Croteau" ; Your full name is the password.
  34. ASSIGN DOB  "xxxxxx"         ; Your Date of Birth.
  35. ;
  36. ;
  37. ; =======================[ BODY OF SCRIPT ]==========================
  38. ;
  39. DELETEF $PATH\$HUB.QWK        ; Delete old mail packet
  40.                               ; Prevents importing old mail again.
  41. ;
  42. DIAL  "TSFNET"    ; This will dial the entry in your phone list
  43.                   ; that has the text 'SFNET' in it.. Change this
  44.                   ; accordingly. The 'T' MUST preceed the ASCII search
  45.                   ; String with NO spaces between.
  46.                   ; Set dialing limit to 50 in dialing directory.
  47.                   ; Set Protocol to ZModem.
  48.                   ;
  49. ; Open a capture log file.
  50. CAPTURE  $PATH\$CAP
  51. ;
  52. ; Set Waitfor 60 seconds, goto Label TooLong if a timeout occurs.
  53. TimeOut  60  TooLong
  54. ;
  55. ; If no connection after dialing then close script
  56. IF $OFFLINE NoConnect
  57. ;
  58. Waitfor  "GRAPHICS? [y/N]"
  59. Delay    100
  60. Send     "N"
  61. ;
  62. Waitfor  "first name:"
  63. Delay    100
  64. Send     "$NODE^M"
  65. ;
  66. Waitfor "last name:"
  67. Delay   100
  68. Send    "^M"
  69. ;
  70. Waitfor "password:"
  71. Delay   100
  72. Send    "$URNAME^M"
  73. ;
  74. ; Account for possible requests during log on.
  75. ;
  76. When
  77. When     "birth [MM-DD-YY]:"     "$DOB"
  78. When     "< ENTER >"             "^M"
  79. When     "(ENTER)"               "^M"
  80. When     "message statistics?"   "N"
  81. When     "new files"             "N"
  82. When     "newsletter"            "N"
  83. When     "PRIVATE FILE MENU -"     DLFile
  84. GOTO DoDownLoad
  85. ;
  86. ;-----;
  87. DLFile:
  88. ;-----;
  89. ; If files sent with SFSENDIT then download them.
  90. ; Place in your SHILOH directory
  91. ;
  92. WHEN                          ; Clears previous statements
  93. Delay 500
  94. Send "D"                      ; Request download
  95. Waitfor "protocol"
  96. Delay 500
  97. Send "B"                      ; Letter for Zmodem batch transfer
  98. Delay 500
  99. WHEN "file to download:" "^M" ; Cycle through batch options
  100. Delay 100
  101. Waitfor "transfer now?"       ; Start transfer now
  102. Delay 500
  103. Send "Y"                      ; Begin download now
  104. Waitfor  "Log off after transfer?"
  105. Delay 500
  106. Send "N"                      ; Don't log off after
  107. Delay 500
  108. DOWNLOAD Z $PATH\*.*          ; Download all files to directory
  109. Delay 500
  110. ; Initialize statements again to travel through display screens
  111. When
  112. When     "< ENTER >"             "^M"
  113. When     "(ENTER)"               "^M"
  114. When     "message statistics?"   "N"
  115. When     "new files"             "N"
  116. When     "newsletter"            "N"
  117. ;
  118. ;---------;
  119. DoDownLoad:
  120. ;---------;
  121. ;
  122. ; Reset time out value higher so HUB has time to compress files.
  123. TimeOut  300  TooLong
  124. ;
  125. ; ====================[ EXPORT PACKET FROM HUB ]=====================
  126. ;
  127. Waitfor "]?"                  ; Waitfor Menu
  128. Delay    100
  129. Send "A"                      ; Selects Download Export Mail from the Menu.
  130. Delay 15000                   ; Pause for 15 seconds while HUB scans
  131.                               ; conferences for messages to export.
  132. DOWNLOAD Z $PATH\$HUB.QWK     ; Download with ZModem protocol.
  133. IF $SUCCESS DoUpLoad          ; If successful then goto DoUpLoad
  134. ;
  135. Note
  136. Note "Download Failed!"       ; Send Note to screen captured in file.
  137. GOTO DoDownLoad               ; If not then try again.
  138. ;
  139. ;-------;
  140. DoUpLoad:
  141. ;-------;
  142. ;
  143. ; ====================[ IMPORT PACKET FROM HUB ]=====================
  144. ;
  145. Note
  146. Note "Download Complete!"     ; Download worked - Send a Note.
  147. ;
  148. Waitfor "]?"
  149. Delay    100
  150. ;
  151. Send "B"                      ; Selects Upload Import Mail from the Menu.
  152. Delay 1500                    ; Pause for 1.5 seconds.
  153. UPLOAD Z $PATH\$HUB.REP       ; Upload with ZModem protocol.
  154. IF $FAIL DoUpLoad
  155. GOTO GoodBye
  156. ;
  157. ;------;
  158. GoodBye:
  159. ;------;
  160. ; ====================[ NORMAL LOG OFF SEQUENCE ]====================
  161. ;
  162. DELETEF $PATH\$HUB.REP        ; Delete reply packet now.
  163. ;
  164. Note
  165. Note "Upload Complete!"       ; Upload worked so Send a Note.
  166. ;
  167. Waitfor "]?"
  168. Delay    100
  169. Send    "G"
  170. ;
  171. Waitfor "log off [Y/n]?"      ; Say good-bye to the HUB.
  172. Delay    100
  173. Send     "Y"
  174. Delay    1500                 ; Give HUB a buffer to log you off.
  175. ;
  176. GOTO FinalEnd
  177. ;
  178. ;-------;
  179. FinalEnd:
  180. ;-------;
  181. ; ==================[ Final Shut Down Of Script ]====================
  182. ;
  183. When                          ; Clears previous when statements.
  184. Waitfor "NO CARRIER"
  185. Delay 100
  186. HANGUP
  187. Delay 500
  188. TurnOFF CAPTURE
  189. Delay 500
  190. System X                      ; Return you to DOS prompt or batch file
  191. ;
  192. ;------;
  193. TooLong:
  194. ;------;
  195. ; ======================[ Time Out Occurred ]========================
  196. ;
  197. Note
  198. Note "Time Out Occurred!"
  199. When                          ; Clears previous when statements.
  200. HANGUP
  201. Delay 500
  202. TurnOFF CAPTURE
  203. Delay 500
  204. System X
  205. ;
  206. ;--------;
  207. NoConnect:
  208. ;--------;
  209. ; ======================[ No Connection Made ]=======================
  210. ;
  211. Note
  212. Note "No Connection Made!"
  213. When                          ; Clears previous when statements.
  214. HANGUP
  215. Delay 500
  216. TurnOFF CAPTURE
  217. Delay 500
  218. System X
  219.